1600
How do I set a computated cell individually

OleObject oG2antt,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Number")
oG2antt.Columns.Add("Format")
var_Items = oG2antt.Items
	h = var_Items.AddItem("1.23")
	var_Items.CellValueFormat(h,1,2)
	var_Items.CellValue(h,1,"2 * %0 + ` (2 * Number)`")
	h = var_Items.AddItem("1.23")
	var_Items.CellValueFormat(h,1,2)
	var_Items.CellValue(h,1,"3 * %0 + ` (3 * Number)`")
	h = var_Items.AddItem("1.23")
	var_Items.CellValueFormat(h,1,2)
	var_Items.CellValue(h,1,"currency(%0) + ` ( Currency(Number) )`")
oG2antt.EndUpdate()
1599
How can I hide a specific hour
OleObject oG2antt,var_Chart,var_InsideZooms,var_InsideZooms1,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -1
oG2antt.Columns.Add("Default")
var_Chart = oG2antt.Chart
	var_Chart.AllowInsideZoom = true
	var_Chart.FirstWeekDay = 1
	var_Chart.FirstVisibleDate = 2013-03-31
	var_Chart.PaneWidth(false,52)
	var_Chart.LevelCount = 2
	var_Chart.UnitScale = 65536
	var_Chart.Level(1).Label = "<font ;6><%h%></font>"
	var_Chart.UnitWidth = 14
	var_Chart.DrawGridLines = -1
	var_Chart.AllowInsideZoom = true
	var_Chart.DefaultInsideZoomFormat.InsideUnit = 1048576
	var_Chart.AllowResizeInsideZoom = false
	var_Chart.InsideZoomOnDblClick = false
	var_InsideZooms = var_Chart.InsideZooms
		var_InsideZooms.SplitBaseLevel = false
		var_InsideZooms.DefaultWidth = 0
	var_InsideZooms1 = var_Chart.InsideZooms
		var_InsideZooms1.Add(DateTime(2013-03-31,23:00:00))
var_Items = oG2antt.Items
	var_Items.AddItem("Item")
oG2antt.EndUpdate()
1598
Is it possible to define the keys of the drop down values to be strings rather than numeric values
/*begin event Change(long  Item,long  ColIndex,any  NewValue) - Occurs when the user changes the cell's content.*/
/*
	oG2antt = ole_1.Object
	MessageBox("Information",string( "NewValue is" ))
	MessageBox("Information",string( String(NewValue) ))
*/
/*end event Change*/

OleObject oG2antt,var_Editor,var_Editor1,var_Items

oG2antt = ole_1.Object
var_Editor = oG2antt.Columns.Add("DropDownList-String").Editor
	var_Editor.EditType = 3
	var_Editor.AddItem(1,"NYC|New York City")
	var_Editor.AddItem(2,"CJN|Cluj Napoca")
var_Editor1 = oG2antt.Columns.Add("DropDownList-Numeric").Editor
	var_Editor1.EditType = 3
	var_Editor1.AddItem(1,"New York City")
	var_Editor1.AddItem(2,"Cluj Napoca")
var_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("NYC"),1,2)
1597
I have an edit field, when going to edit mode, the rightmost part is shown. Is it possible to show the left part instead

OleObject oG2antt,var_Column,var_Editor,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Column = oG2antt.Columns.Add("Edit")
	var_Column.Width = 64
	var_Column.AllowSizing = false
	var_Editor = var_Column.Editor
		var_Editor.EditType = 8
		var_Editor.Mask = ";;;rich"
oG2antt.Columns.Add("Empty")
var_Items = oG2antt.Items
	var_Items.AddItem("This is a bit ot long text")
	var_Items.AddItem("")
oG2antt.EndUpdate()
1596
I have a drop down field, the control shows the rightmost part of the selected caption. Is it possible to show the left part
OleObject oG2antt,var_Column,var_Column1,var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Column = oG2antt.Columns.Add("DropDown")
	var_Column.Width = 64
	var_Column.AllowSizing = false
	var_Editor = var_Column.Editor
		var_Editor.DropDownAlignment = 32 /*0x20 | */
		var_Editor.EditType = 2
		var_Editor.AddItem(1,"First item. This is a bit ot long text")
		var_Editor.AddItem(2,"Second item. This is a bit ot long text")
		var_Editor.AddItem(3,"Third item. This is a bit ot long text")
		var_Editor.Mask = ";;;rich"
var_Column1 = oG2antt.Columns.Add("PickEdit")
	var_Column1.Width = 64
	var_Column1.AllowSizing = false
	var_Editor1 = var_Column1.Editor
		var_Editor1.DropDownAlignment = 32 /*0x20 | */
		var_Editor1.EditType = 14
		var_Editor1.AddItem(1,"First item. This is a bit ot long text")
		var_Editor1.AddItem(2,"Second item. This is a bit ot long text")
		var_Editor1.AddItem(3,"Third item. This is a bit ot long text")
		var_Editor1.Mask = ";;;rich"
oG2antt.Columns.Add("Empty")
var_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("First item. This is a bit ot long text"),1,"Second item. This is a bit ot long text")
	h = var_Items.AddItem("First item. This is a bit ot long text")
	var_Editor2 = var_Items.CellEditor(h,0)
		var_Editor2.DropDownAlignment = 32 /*0x20 | */
		var_Editor2.EditType = 2
		var_Editor2.AddItem(1,"First item. This is a bit ot long text")
		var_Editor2.AddItem(2,"Second item. This is a bit ot long text")
		var_Editor2.AddItem(3,"Third item. This is a bit ot long text")
	var_Items.CellValue(h,1,"Second item. This is a bit ot long text")
	var_Editor3 = var_Items.CellEditor(h,1)
		var_Editor3.DropDownAlignment = 32 /*0x20 | */
		var_Editor3.EditType = 14
		var_Editor3.AddItem(1,"First item. This is a bit ot long text")
		var_Editor3.AddItem(2,"Second item. This is a bit ot long text")
		var_Editor3.AddItem(3,"Third item. This is a bit ot long text")
oG2antt.EndUpdate()
1595
Is there a property for the back color of the dropdown field
OleObject oG2antt,var_Editor

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Editor = oG2antt.Columns.Add("Date").Editor
	var_Editor.EditType = 7
	var_Editor.Option(55,15790320)
	var_Editor.Option(56,65793)
oG2antt.Items.AddItem(2001-01-01)
oG2antt.EndUpdate()
1594
Is it possible to change a back color of the field/cell when it takes a focus
/*begin event EditClose() - Occurs when the edit operation ends.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.ClearCellBackColor(var_Items.FocusItem,oG2antt.FocusColumnIndex)
*/
/*end event EditClose*/

/*begin event EditOpen() - Occurs when the edit operation starts.*/
/*
	OleObject var_Items,var_Items1
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.CellBackColor(var_Items.FocusItem,oG2antt.FocusColumnIndex,RGB(255,0,0))
	var_Items1 = oG2antt.Items
		var_Items1.CellValue(var_Items1.FocusItem,oG2antt.FocusColumnIndex,oG2antt.Items.CellValue(oG2antt.Items.FocusItem,oG2antt.FocusColumnIndex))
*/
/*end event EditOpen*/

OleObject oG2antt,var_Items

oG2antt = ole_1.Object
oG2antt.FullRowSelect = 0
oG2antt.Columns.Add("C1").Editor.EditType = 1
oG2antt.Columns.Add("C2").Editor.EditType = 1
var_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("v1"),1,"v2")
	var_Items.CellValue(var_Items.AddItem("v3"),1,"v4")
1593
How can I display the current date mask, but still allow empty values

OleObject oG2antt,var_Editor,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.CauseValidateValue = true
oG2antt.FullRowSelect = 0
oG2antt.DrawGridLines = -2
var_Editor = oG2antt.Columns.Add("Date").Editor
	var_Editor.EditType = 7
	var_Editor.Mask = "!99/99/9999;1;;empty=1,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
var_Items = oG2antt.Items
	var_Items.AddItem()
	var_Items.AddItem(2001-01-01)
	var_Items.AddItem()
oG2antt.EndUpdate()
1592
How can I align the days in a DateType editor
OleObject oG2antt,var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Editor4,var_Editor5,var_Items

oG2antt = ole_1.Object
oG2antt.Columns.Add("DropDown")
var_Items = oG2antt.Items
	var_Editor = var_Items.CellEditor(var_Items.AddItem(2001-01-01),0)
		var_Editor.EditType = 7
		var_Editor.DropDownAlignment = 2
	var_Editor1 = var_Items.CellEditor(var_Items.AddItem(2001-01-01),0)
		var_Editor1.EditType = 7
		var_Editor1.DropDownAlignment = 1
	var_Editor2 = var_Items.CellEditor(var_Items.AddItem(2001-01-01),0)
		var_Editor2.EditType = 7
		var_Editor2.DropDownAlignment = 0
	var_Editor3 = var_Items.CellEditor(var_Items.AddItem(2001-01-01),0)
		var_Editor3.EditType = 7
		var_Editor3.DropDownAlignment = 32 /*0x20 | */
	var_Editor4 = var_Items.CellEditor(var_Items.AddItem(2001-01-01),0)
		var_Editor4.EditType = 7
		var_Editor4.DropDownAlignment = 33 /*0x20 | CenterAlignment*/
	var_Editor5 = var_Items.CellEditor(var_Items.AddItem(2001-01-01),0)
		var_Editor5.EditType = 7
		var_Editor5.DropDownAlignment = 34 /*0x20 | RightAlignment*/
1591
How can I align the drop down portion rather the inside captions
OleObject oG2antt,var_Editor,var_Editor1,var_Items

oG2antt = ole_1.Object
oG2antt.Columns.Add("DropDown").Editor.EditType = 7
var_Items = oG2antt.Items
	var_Editor = var_Items.CellEditor(var_Items.AddItem(2001-01-01),0)
		var_Editor.EditType = 7
		var_Editor.DropDownAlignment = 32 /*0x20 | */
	var_Editor1 = var_Items.CellEditor(var_Items.AddItem(2001-01-01),0)
		var_Editor1.EditType = 7
		var_Editor1.DropDownAlignment = 16
	var_Items.AddItem(2001-01-01)
1590
Is it possible to show a message that the field is empty

OleObject oG2antt,var_Column,var_Editor

oG2antt = ole_1.Object
oG2antt.DrawGridLines = -2
oG2antt.FullRowSelect = 0
var_Column = oG2antt.Columns.Add("Float")
	var_Editor = var_Column.Editor
		var_Editor.EditType = 8
		var_Editor.Mask = ";;;float,digits=0,grouping=,invalid=empty,warning=invalid character"
oG2antt.Items.AddItem(192278)
oG2antt.Items.AddItem(1000)
1589
How can I mask a date

OleObject oG2antt,var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Editor4,var_Editor5,var_Editor6,var_Editor7,var_Editor8,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.CauseValidateValue = true
oG2antt.FullRowSelect = 0
oG2antt.DrawGridLines = -2
oG2antt.Columns.Add("Date")
oG2antt.Columns.Add("Mask")
var_Items = oG2antt.Items
	h = var_Items.AddItem(2001-01-01)
	var_Editor = var_Items.CellEditor(h,0)
		var_Editor.EditType = 7
		var_Editor.Mask = "{1,12}/{1,31}/{1950,2050};1;;select=1,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,validateas=1"
	var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask)
	h = var_Items.AddItem(2001-01-01)
	var_Editor1 = var_Items.CellEditor(h,0)
		var_Editor1.EditType = 7
		var_Editor1.Mask = "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
	var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask)
	h = var_Items.AddItem(2001-01-01)
	var_Editor2 = var_Items.CellEditor(h,0)
		var_Editor2.EditType = 7
		var_Editor2.Mask = "!99/99/9999;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
	var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask)
	h = var_Items.AddItem(2001-01-01)
	var_Editor3 = var_Items.CellEditor(h,0)
		var_Editor3.EditType = 7
		var_Editor3.Mask = "!99/99/9999;; ;select=4,overtype,empty,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,validateas=1"
	var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask)
	h = var_Items.AddItem(2001-01-01)
	var_Editor4 = var_Items.CellEditor(h,0)
		var_Editor4.EditType = 7
		var_Editor4.Mask = "![0-9 ][0-9 ]/[0-9 ][0-9 ]/[0-9 ][0-9 ][0-9 ][0-9 ];1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,leading= "
	var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask)
	h = var_Items.AddItem(2001-01-01)
	var_Items.FormatCell(h,0,"len(value) ? shortdateF(value) : ``")
	var_Editor5 = var_Items.CellEditor(h,0)
		var_Editor5.EditType = 7
		var_Editor5.Mask = "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype,leading"
	var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask)
	h = var_Items.AddItem(2001-01-01)
	var_Items.FormatCell(h,0,"len(value) ? shortdateF(value) : ``")
	var_Editor6 = var_Items.CellEditor(h,0)
		var_Editor6.EditType = 7
		var_Editor6.Mask = "!00/00/0000;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype,leading"
	var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask)
	h = var_Items.AddItem(2001-01-01)
	var_Items.FormatCell(h,0,"len(value) ? shortdateF(value) : ``")
	var_Editor7 = var_Items.CellEditor(h,0)
		var_Editor7.EditType = 7
		var_Editor7.Mask = "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=4,overtype"
	var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask)
	h = var_Items.AddItem(2001-01-01)
	var_Items.FormatCell(h,0,"len(value) ? shortdateF(value) : ``")
	var_Editor8 = var_Items.CellEditor(h,0)
		var_Editor8.EditType = 7
		var_Editor8.Mask = "!00/00/0000;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,select=1,overtype"
	var_Items.CellValue(h,1,var_Items.CellEditor(h,0).Mask)
oG2antt.EndUpdate()
1588
How can I display and edit an integer number to show grouping digits too ( no decimals)
OleObject oG2antt,var_Column,var_Editor

oG2antt = ole_1.Object
var_Column = oG2antt.Columns.Add("Float")
	var_Column.FormatColumn = "value format `0`"
	var_Editor = var_Column.Editor
		var_Editor.EditType = 8
		var_Editor.Mask = ";;;float,digits=0"
oG2antt.Items.AddItem(192278)
1587
How can I display and edit a float number to show grouping digits too
OleObject oG2antt,var_Column,var_Editor

oG2antt = ole_1.Object
var_Column = oG2antt.Columns.Add("Float")
	var_Column.FormatColumn = "value format ``"
	var_Editor = var_Column.Editor
		var_Editor.EditType = 8
		var_Editor.Mask = ";;;float"
oG2antt.Items.AddItem(192278)
1586
How can I mask a phone number

OleObject oG2antt,var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Items
any h

oG2antt = ole_1.Object
oG2antt.CauseValidateValue = true
oG2antt.DrawGridLines = -2
oG2antt.FullRowSelect = 0
oG2antt.Columns.Add("Phone").Editor.EditType = 8
var_Items = oG2antt.Items
	h = var_Items.AddItem()
	var_Editor = var_Items.CellEditor(h,0)
		var_Editor.EditType = 8
		var_Editor.Mask = "!(999) 000 0000;1;;select=1,empty,overtype,warning=invalid characer,invalid=The value you entered isn't appropriate for the input mask <b>'<%mask%>'</b> specified for this field."
	h = var_Items.AddItem("0123")
	var_Editor1 = var_Items.CellEditor(h,0)
		var_Editor1.EditType = 8
		var_Editor1.Mask = "!(999) 000 0000;2;;select=4"
	h = var_Items.AddItem("0123")
	var_Editor2 = var_Items.CellEditor(h,0)
		var_Editor2.EditType = 8
		var_Editor2.Mask = "`Phone: `!(999) 000-0000"
	h = var_Items.AddItem("(074) 876-1222")
	var_Editor3 = var_Items.CellEditor(h,0)
		var_Editor3.EditType = 8
		var_Editor3.Mask = "!(999) 000-0000;0"
1585
Is it possible to display the ColorType fields using RGB format
OleObject oG2antt,var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Editor4,var_Editor5,var_Editor6,var_Items
any h

oG2antt = ole_1.Object
oG2antt.Columns.Add("Color").Editor.EditType = 9
var_Items = oG2antt.Items
	var_Items.AddItem(255)
	h = var_Items.AddItem(255)
	var_Editor = var_Items.CellEditor(h,0)
		var_Editor.EditType = 9
		var_Editor.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
	h = var_Items.AddItem(255)
	var_Editor1 = var_Items.CellEditor(h,0)
		var_Editor1.EditType = 9
		var_Editor1.Mask = "`&H`XXXXXXXX`&`;;0;overtype,insertype,warning=Wrong!"
	h = var_Items.AddItem(255)
	var_Editor2 = var_Items.CellEditor(h,0)
		var_Editor2.EditType = 9
		var_Editor2.Mask = "`0x`XX `0x`XX `0x`XX;;0;overtype,insertype,warning=Wrong!"
	h = var_Items.AddItem(255)
	var_Editor3 = var_Items.CellEditor(h,0)
		var_Editor3.EditType = 9
		var_Editor3.Mask = "R{0,255} G{0,255} B{0,255};;0;overtype,insertype,warning=Wrong!"
	h = var_Items.AddItem(255)
	var_Editor4 = var_Items.CellEditor(h,0)
		var_Editor4.EditType = 9
		var_Editor4.Mask = "`(hexa) RGB 0x`XXXXXX;;0;overtype,insertype,warning=Wrong!"
	h = var_Items.AddItem(255)
	var_Editor5 = var_Items.CellEditor(h,0)
		var_Editor5.EditType = 9
		var_Editor5.Mask = "`(decimal) Red: `{0,255}` Green: `{0,255}` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
	h = var_Items.AddItem(255)
	var_Editor6 = var_Items.CellEditor(h,0)
		var_Editor6.EditType = 9
		var_Editor6.Mask = "`(combine) Red: `{0,255}` Green: 0x`XX` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
1584
How can I specify a different color for bars that cross over the non-working part of the chart

OleObject oG2antt,var_Bars,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
var_Bars = oG2antt.Chart.Bars
	var_Bars.Copy("Task","STask").Color = RGB(255,0,0)
	var_Bars.Add("Task:STask").Shortcut = "TS"
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,96)
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.NonworkingDaysColor = var_Chart.Bars.Item("STask").Color
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"TS",2001-01-02,2001-01-16)
1583
How can I merge two columns

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.CellMerge(Item,0,1)
*/
/*end event AddItem*/

OleObject oG2antt,var_Items

oG2antt = ole_1.Object
oG2antt.MarkSearchColumn = false
oG2antt.TreeColumnIndex = -1
oG2antt.DrawGridLines = -1
oG2antt.Columns.Add("C1").Def(16,false)
oG2antt.Columns.Add("C2")
oG2antt.Columns.Add("C3")
var_Items = oG2antt.Items
	var_Items.AddItem("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
	var_Items.AddItem("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
1582
How can I expand an item once the user clicks the column's checkbox

/*begin event CellStateChanged(long  Item,long  ColIndex) - Fired after cell's state has been changed.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.ExpandItem(Item,false)
*/
/*end event CellStateChanged*/

OleObject oG2antt,var_Column,var_Columns,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
	var_Column = var_Columns.Add("")
		var_Column.Def(0,true)
		var_Column.AllowSizing = false
		var_Column.Width = 18
		var_Column.PartialCheck = true
	var_Columns.Add("Tasks")
oG2antt.ShowFocusRect = false
oG2antt.HasButtons = 0
oG2antt.TreeColumnIndex = 1
oG2antt.Indent = 14
oG2antt.ExpandOnDblClick = false
oG2antt.LinesAtRoot = 0
var_Items = oG2antt.Items
	h = var_Items.AddItem("")
	var_Items.CellState(h,0,1)
	var_Items.CellValue(h,1,"Project")
	hChild = var_Items.InsertItem(h,,"")
	var_Items.CellValue(hChild,1,"Task 1")
	hChild = var_Items.InsertItem(h,,"")
	var_Items.CellValue(hChild,1,"Task 2")
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
1581
How can I define a column with check-box
OleObject oG2antt,var_Column,var_Columns,var_Items
any h,hChild

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
	var_Column = var_Columns.Add("")
		var_Column.Def(0,true)
		var_Column.AllowSizing = false
		var_Column.Width = 18
		var_Column.PartialCheck = true
	var_Columns.Add("Tasks")
oG2antt.ShowFocusRect = false
oG2antt.HasButtons = 0
oG2antt.TreeColumnIndex = 1
oG2antt.Indent = 14
oG2antt.ExpandOnDblClick = false
oG2antt.LinesAtRoot = 0
var_Items = oG2antt.Items
	h = var_Items.AddItem("")
	var_Items.CellState(h,0,1)
	var_Items.CellValue(h,1,"Project")
	hChild = var_Items.InsertItem(h,,"")
	var_Items.CellValue(hChild,1,"Task 1")
	hChild = var_Items.InsertItem(h,,"")
	var_Items.CellValue(hChild,1,"Task 2")
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
1580
We need to know how it's possibile to have the bars on the same line and not in a different line

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -1
var_Chart = oG2antt.Chart
	var_Chart.DrawGridLines = -1
	var_Chart.FirstVisibleDate = 2002-01-01
	var_Chart.Bars.Item("Task").OverlaidType = 515 /*exOverlaidBarsStackAutoArrange | exOverlaidBarsStack*/
	var_Chart.PaneWidth(false,128)
oG2antt.Columns.Add("Task")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Tasks")
	var_Items.AddBar(h,"Task",2002-01-02,2002-01-07,"A")
	var_Items.AddBar(h,"Task",2002-01-03,2002-01-08,"B")
	var_Items.AddBar(h,"Task",2002-01-04,2002-01-09,"C")
	var_Items.ItemBar(h,"A",33,255)
	var_Items.AddLink("AB",h,"A",h,"B")
	var_Items.AddLink("BC",h,"B",h,"C")
oG2antt.EndUpdate()
1579
The Change event gets me the today date. How can I find what user typed
/*begin event Change(long  Item,long  ColIndex,any  NewValue) - Occurs when the user changes the cell's content.*/
/*
	oG2antt = ole_1.Object
	MessageBox("Information",string( "NewValue:" ))
	MessageBox("Information",string( String(NewValue) ))
	MessageBox("Information",string( "EditingValue:" ))
	MessageBox("Information",string( oG2antt.EditingText ))
*/
/*end event Change*/

OleObject oG2antt

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.Columns.Add("Edit").Editor.EditType = 7
oG2antt.Items.AddItem(2001-01-01)
oG2antt.EndUpdate()
1578
How can I add a footer row
OleObject oG2antt,var_Items
any h

oG2antt = ole_1.Object
oG2antt.ShowLockedItems = true
oG2antt.DrawGridLines = 2
oG2antt.Columns.Add("C1")
oG2antt.Columns.Add("C2")
var_Items = oG2antt.Items
	var_Items.LockedItemCount(2,1)
	h = var_Items.LockedItem(2,0)
	var_Items.ItemBackColor(h,RGB(128,128,128))
	var_Items.ItemForeColor(h,RGB(255,255,255))
	var_Items.CellValue(h,0,"footer c1")
	var_Items.CellValue(h,1,"footer c2")
	var_Items.CellValue(var_Items.AddItem("cell"),1,"cell")
1577
How can I add a header row
OleObject oG2antt,var_Items
any h

oG2antt = ole_1.Object
oG2antt.ShowLockedItems = true
oG2antt.DrawGridLines = 2
oG2antt.Columns.Add("C1")
oG2antt.Columns.Add("C2")
var_Items = oG2antt.Items
	var_Items.LockedItemCount(0,1)
	h = var_Items.LockedItem(0,0)
	var_Items.ItemBackColor(h,RGB(128,128,128))
	var_Items.ItemForeColor(h,RGB(255,255,255))
	var_Items.CellValue(h,0,"footer c1")
	var_Items.CellValue(h,1,"footer c2")
	var_Items.CellValue(var_Items.AddItem("cell"),1,"cell")
1576
How can I fix a column, while other sizable and fill the control's client
OleObject oG2antt,var_Column

oG2antt = ole_1.Object
oG2antt.ColumnAutoResize = true
oG2antt.Columns.Add("Sizable")
var_Column = oG2antt.Columns.Add("F")
	var_Column.AllowSizing = false
	var_Column.Width = 16
1575
How can I programmatically add more columns to the sort bar and other to be sorted, but not included in the sort bar

OleObject oG2antt,var_Columns

oG2antt = ole_1.Object
oG2antt.SortBarVisible = true
var_Columns = oG2antt.Columns
	var_Columns.Add(String(0))
	var_Columns.Add(String(1))
	var_Columns.Add(String(2))
	var_Columns.Add(String(3))
	var_Columns.Add(String(4))
oG2antt.Layout = "multiplesort=" + CHAR(34) + "C3:1 C4:2" + CHAR(34) + ";singlesort=" + CHAR(34) + "C2:1" + CHAR(34) + ""
1574
I'm using different bar types, in order to use different colours. The problem I'm having is that when two bars of different types overlap, and should in the histogram show as overallocated, they instead overlap here too, and show as single unit. Is there a way I can correctly show this as an overallocation

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.HistogramVisible = true
	var_Chart.HistogramHeight = 32
	var_Chart.Bars.Item("Task").HistogramPattern = 6
	var_Chart.PaneWidth(false,128)
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
	h = var_Items.AddItem("Item 2")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
	var_Items.ItemBar(h,"",33,255)
	var_Items.AddBar(var_Items.AddItem("Item 3"),"Task",2001-01-06,2001-01-09)
1573
Is it possible to assign a different EBN to a specified bar

OleObject oG2antt,var_Appearance,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_Appearance.Add(2,"c:\exontrol\images\pushed.ebn")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,128)
oG2antt.Columns.Add("Tasks")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04)
	h = var_Items.AddItem("Task 2")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04)
	var_Items.ItemBar(h,"",33,255)
	h = var_Items.AddItem("Task 3")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04)
	var_Items.ItemBar(h,"",33,16777216)
	h = var_Items.AddItem("Task 4")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04)
	var_Items.ItemBar(h,"",33,16777471)
	h = var_Items.AddItem("Task 5")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04)
	var_Items.ItemBar(h,"",33,33619967)
oG2antt.EndUpdate()
1572
How can I provide a mask for a date column
/*begin event Change(long  Item,long  ColIndex,any  NewValue) - Occurs when the user changes the cell's content.*/
/*
	oG2antt = ole_1.Object
	MessageBox("Information",string( "Prev Value " ))
	MessageBox("Information",string( String(oG2antt.Items.CellValue(Item,ColIndex)) ))
	MessageBox("Information",string( "Check and Update the NewValue" ))
	MessageBox("Information",string( String(NewValue) ))
	NewValue = 2001-01-01
*/
/*end event Change*/

OleObject oG2antt,var_Column,var_Editor

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
var_Column = oG2antt.Columns.Add("Date")
	var_Column.FormatColumn = "day(value) + `/` + month(value) + `/` + year(value)"
	var_Editor = var_Column.Editor
		var_Editor.EditType = 7
		var_Editor.Mask = "{1,12}\/{1,31}\/{1,2099}"
oG2antt.Items.AddItem(2001-01-01)
oG2antt.EndUpdate()
1571
I am trying to introduce a custom tool tip to those particular cells. I have it working and I know I can style the font etc. however, what I would like to do is style the tooltip container itself like add some padding or add a border color. Is this possible
OleObject oG2antt

oG2antt = ole_1.Object
oG2antt.ToolTipDelay = 1
oG2antt.ToolTipWidth = 364
oG2antt.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2antt\Sample\EBN\frame.ebn")
oG2antt.Background(64,16777216 /*0x1000000*/)
oG2antt.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
1570
Is it possible to edit a float number without using of e/E/d/D (exponent) and +/- (signs) characters
OleObject oG2antt,var_Editor

oG2antt = ole_1.Object
var_Editor = oG2antt.Columns.Add("Edit").Editor
	var_Editor.EditType = 1
	var_Editor.Numeric = 770 /*exDisableSigns | exFloatInteger*/
oG2antt.Items.AddItem(1.22)
1569
How can I edit a float number with no using of e/E/d/D and + character
OleObject oG2antt,var_Editor

oG2antt = ole_1.Object
var_Editor = oG2antt.Columns.Add("Edit").Editor
	var_Editor.EditType = 1
	var_Editor.Numeric = 258 /*exDisablePlus | exFloatInteger*/
oG2antt.Items.AddItem(1.22)
1568
Is it possible to edit a float number with no using of e/E/d/D (exponent) characters
OleObject oG2antt,var_Editor

oG2antt = ole_1.Object
var_Editor = oG2antt.Columns.Add("Edit").Editor
	var_Editor.EditType = 1
	var_Editor.Numeric = 2
oG2antt.Items.AddItem(1.22)
1567
How can I edit an integer with no using of +/- signs
OleObject oG2antt,var_Editor

oG2antt = ole_1.Object
var_Editor = oG2antt.Columns.Add("Edit").Editor
	var_Editor.EditType = 1
	var_Editor.Numeric = 1023 /*0xfc | exDisableSigns | exFloatInteger | exFloat*/
oG2antt.Items.AddItem(1)
1566
When I'm trying to show string with "line break" character (vbCrLF) in a textbox, it shows 2 squares. Is there any way to hide these squares

OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oG2antt = ole_1.Object
var_Columns = oG2antt.Columns
	var_Columns.Add("Value")
	var_Column = var_Columns.Add("CellSingleLine = False")
		var_Column.ComputedField = "%0"
		var_Column.Def(16,false)
	var_Column1 = var_Columns.Add("FormatColumn/replace CRLF")
		var_Column1.ComputedField = "%0"
		var_Column1.FormatColumn = "value replace `\r\n` with ``"
	var_Column2 = var_Columns.Add("FormatColumn/replace TAB,CRLF")
		var_Column2.ComputedField = "%0"
		var_Column2.FormatColumn = "(value replace `\t` with ``) replace `\r\n` with ``"
var_Items = oG2antt.Items
	var_Items.AddItem("a\ta\r\nb\tb")
1565
I am using the Chart.ShowLinksColor property, the question is it is possible to prevent changing the bar's color

OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 24
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,48)
	var_Chart.NonworkingDays = 0
	var_Chart.LinksStyle = 0
	var_Chart.ShowLinksColor(17 /*exUpdateColorLinksOnly | exShowLinksStartFrom*/,RGB(255,0,0))
	var_Chart.ShowLinksColor(18 /*exUpdateColorLinksOnly | exShowLinksEndTo*/,RGB(0,255,0))
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",2001-01-02,2001-01-04,"")
	var_Items.ItemBar(h2,"",257,true)
	var_Items.AddLink("L1",h1,"",h2,"")
	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",2001-01-02,2001-01-04,"")
	var_Items.AddLink("L2",h2,"",h3,"")
	var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
1564
Apparently, the links are shown on the back. Is there any option to bring them in front

OleObject oG2antt,var_Chart,var_Items
any h1,h2

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2006-09-19
	var_Chart.PaneWidth(false,64)
	var_Chart.NonworkingDaysPattern = 1
	var_Chart.ShowLinks = 17 /*exShowLinksFront | exShowExtendedLinks*/
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",2006-09-20,2006-09-22)
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",2006-09-26,2006-09-28)
	var_Items.ItemBar(h2,"",257,true)
	var_Items.AddLink("L1",h1,"",h2,"")
	var_Items.Link("L1",12,"L1")
oG2antt.EndUpdate()
1563
How can I enable the extended links feature

OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 24
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,48)
	var_Chart.NonworkingDays = 0
	var_Chart.LinksStyle = 0
	var_Chart.ShowLinks = 1
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",2001-01-02,2001-01-04,"")
	var_Items.AddLink("L1",h1,"",h2,"")
	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",2001-01-02,2001-01-04,"")
	var_Items.AddLink("L2",h3,"",h2,"")
	var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
1562
How do I count all bars in the chart
OleObject oG2antt,var_Chart,var_Items
any hSummary,hTask

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,128)
	var_Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
	hSummary = var_Items.AddItem("Task")
	var_Items.AddBar(hSummary,"Task",2001-01-02,2001-01-05,"K1")
	hTask = var_Items.InsertItem(hSummary,,"Task A")
	var_Items.AddBar(hTask,"Task",2001-01-02,2001-01-05,"K1")
	var_Items.AddBar(var_Items.InsertItem(hTask,,"Task A.1"),"Task",2001-01-03,2001-01-05,"K11")
	var_Items.AddBar(var_Items.InsertItem(hTask,,"Task A.2"),"Task",2001-01-03,2001-01-05,"K12")
	hTask = var_Items.InsertItem(hSummary,,"Task B")
	var_Items.AddBar(hTask,"Task",2001-01-02,2001-01-05,"K2")
	hTask = var_Items.InsertItem(hTask,,"Task B.1")
	var_Items.AddBar(hTask,"Task",2001-01-05,2001-01-09,"K21")
	var_Items.ExpandItem(0,true)
	MessageBox("Information",string( "Count: " ))
	MessageBox("Information",string( String(var_Items.ItemBar(0,"<*>",256)) ))
oG2antt.EndUpdate()
1561
Is there any property to count the all child bars of a specified item ( all descendents )
OleObject oG2antt,var_Chart,var_Items
any hSummary,hTask

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,128)
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.Bars.Copy("Task","CountTask").Color = RGB(0,255,0)
var_Items = oG2antt.Items
	hSummary = var_Items.AddItem("Project")
	var_Items.ItemBold(hSummary,true)
	hTask = var_Items.InsertItem(hSummary,,"Task A")
	var_Items.AddBar(hTask,"CountTask",2001-01-02,2001-01-05,"K1")
	var_Items.AddBar(var_Items.InsertItem(hTask,,"Task A.1"),"CountTask",2001-01-03,2001-01-05,"K11")
	var_Items.AddBar(var_Items.InsertItem(hTask,,"Task A.2"),"CountTask",2001-01-03,2001-01-05,"K12")
	hTask = var_Items.InsertItem(hSummary,,"Task B")
	var_Items.AddBar(hTask,"CountTask",2001-01-02,2001-01-05,"K2")
	hTask = var_Items.InsertItem(hTask,,"Task B.1")
	var_Items.AddBar(hTask,"CountTask",2001-01-05,2001-01-09,"K21")
	var_Items.ExpandItem(0,true)
	var_Items.DefaultItem = var_Items.ItemByIndex(0)
	MessageBox("Information",string( "Count: " ))
	MessageBox("Information",string( String(var_Items.ItemBar(-3,"<*>",256)) ))
	var_Items.DefaultItem = 0
oG2antt.EndUpdate()
1560
Is there any property to count the child bars of a specified item ( leaf descendents )
OleObject oG2antt,var_Chart,var_Items
any hSummary,hTask

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,128)
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.Bars.Copy("Task","CountTask").Color = RGB(0,255,0)
var_Items = oG2antt.Items
	hSummary = var_Items.AddItem("Project")
	var_Items.ItemBold(hSummary,true)
	hTask = var_Items.InsertItem(hSummary,,"Task A")
	var_Items.AddBar(hTask,"Task",2001-01-02,2001-01-05,"K1")
	var_Items.AddBar(var_Items.InsertItem(hTask,,"Task A.1"),"CountTask",2001-01-03,2001-01-05,"K11")
	var_Items.AddBar(var_Items.InsertItem(hTask,,"Task A.2"),"CountTask",2001-01-03,2001-01-05,"K12")
	hTask = var_Items.InsertItem(hSummary,,"Task B")
	var_Items.AddBar(hTask,"Task",2001-01-02,2001-01-05,"K2")
	hTask = var_Items.InsertItem(hTask,,"Task B.1")
	var_Items.AddBar(hTask,"CountTask",2001-01-05,2001-01-09,"K21")
	var_Items.ExpandItem(0,true)
	var_Items.DefaultItem = var_Items.ItemByIndex(0)
	MessageBox("Information",string( "Count: " ))
	MessageBox("Information",string( String(var_Items.ItemBar(-2,"<*>",256)) ))
	var_Items.DefaultItem = 0
oG2antt.EndUpdate()
1559
Is there any property to count the child bars of a specified item ( direct descendents )
OleObject oG2antt,var_Chart,var_Items
any hSummary,hTask

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,128)
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.Bars.Copy("Task","CountTask").Color = RGB(0,255,0)
var_Items = oG2antt.Items
	hSummary = var_Items.AddItem("Project")
	var_Items.ItemBold(hSummary,true)
	hTask = var_Items.InsertItem(hSummary,,"Task A")
	var_Items.AddBar(hTask,"CountTask",2001-01-02,2001-01-05,"K1")
	var_Items.AddBar(var_Items.InsertItem(hTask,,"Task A.1"),"Task",2001-01-03,2001-01-05,"K11")
	var_Items.AddBar(var_Items.InsertItem(hTask,,"Task A.2"),"Task",2001-01-03,2001-01-05,"K12")
	hTask = var_Items.InsertItem(hSummary,,"Task B")
	var_Items.AddBar(hTask,"CountTask",2001-01-02,2001-01-05,"K2")
	hTask = var_Items.InsertItem(hTask,,"Task B.1")
	var_Items.AddBar(hTask,"Task",2001-01-05,2001-01-09,"K21")
	var_Items.ExpandItem(0,true)
	var_Items.DefaultItem = var_Items.ItemByIndex(0)
	MessageBox("Information",string( "Count: " ))
	MessageBox("Information",string( String(var_Items.ItemBar(-1,"<*>",256)) ))
	var_Items.DefaultItem = 0
oG2antt.EndUpdate()
1558
How can I define all child items to belong to a summary bar (DefineSummaryBars-3)

OleObject oG2antt,var_Chart,var_Items
any hSummary,hTask

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,128)
	var_Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
	hSummary = var_Items.AddItem("Summary")
	var_Items.AddBar(hSummary,"Summary",2001-01-02,2001-01-02,"")
	hTask = var_Items.InsertItem(hSummary,,"Task A")
	var_Items.AddBar(hTask,"Task",2001-01-02,2001-01-05,"K1")
	hTask = var_Items.InsertItem(hTask,,"Task A.1")
	var_Items.AddBar(hTask,"Task",2001-01-03,2001-01-05,"K11")
	hTask = var_Items.InsertItem(hSummary,,"Task B")
	var_Items.AddBar(hTask,"Task",2001-01-02,2001-01-05,"K2")
	hTask = var_Items.InsertItem(hTask,,"Task B.1")
	var_Items.AddBar(hTask,"Task",2001-01-05,2001-01-09,"K21")
	var_Items.DefineSummaryBars(hSummary,"",-3,"<K*>")
	var_Items.ExpandItem(0,true)
oG2antt.EndUpdate()
1557
Can I define automatically the leaf descendents of the summary bar (DefineSummaryBars-2)

OleObject oG2antt,var_Chart,var_Items
any hSummary,hTask

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,128)
	var_Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
	hSummary = var_Items.AddItem("Summary")
	var_Items.AddBar(hSummary,"Summary",2001-01-02,2001-01-02,"")
	hTask = var_Items.InsertItem(hSummary,,"Task A")
	var_Items.AddBar(hTask,"1Task",2001-01-02,2001-01-05,"K1")
	hTask = var_Items.InsertItem(hTask,,"Task A.1")
	var_Items.AddBar(hTask,"Task",2001-01-03,2001-01-05,"K11")
	hTask = var_Items.InsertItem(hSummary,,"Task B")
	var_Items.AddBar(hTask,"1Task",2001-01-02,2001-01-05,"K2")
	hTask = var_Items.InsertItem(hTask,,"Task B.1")
	var_Items.AddBar(hTask,"Task",2001-01-05,2001-01-09,"K21")
	var_Items.DefineSummaryBars(hSummary,"",-2,"<K*>")
	var_Items.ExpandItem(0,true)
oG2antt.EndUpdate()
1556
How can I assign the childs bars to a summary bar (DefineSummaryBars-1)

OleObject oG2antt,var_Chart,var_Items
any hSummary,hTask

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,128)
	var_Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
	hSummary = var_Items.AddItem("Summary")
	var_Items.AddBar(hSummary,"Summary",2001-01-02,2001-01-02,"")
	hTask = var_Items.InsertItem(hSummary,,"Task A")
	var_Items.AddBar(hTask,"Task",2001-01-02,2001-01-05,"K1")
	hTask = var_Items.InsertItem(hSummary,,"Task B")
	var_Items.AddBar(hTask,"Task",2001-01-04,2001-01-08,"K2")
	var_Items.ExpandItem(hSummary,true)
	var_Items.DefineSummaryBars(hSummary,"",-1,"<*>")
oG2antt.EndUpdate()
1555
Is it possible to define a summary bar to include all bars in the chart (DefineSummaryBars-0)

OleObject oG2antt,var_Chart,var_Items
any hSummary

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,128)
	var_Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
	hSummary = var_Items.AddItem("Summary")
	var_Items.AddBar(hSummary,"Summary",2001-01-02,2001-01-02,"summary")
	var_Items.AddBar(var_Items.AddItem("Task A"),"Task",2001-01-02,2001-01-05,"K1")
	var_Items.AddBar(var_Items.AddItem("Task B"),"Task",2001-01-06,2001-01-09,"K2")
	var_Items.AddBar(var_Items.AddItem("Task C"),"Task",2001-01-11,2001-01-14,"K3")
	var_Items.DefineSummaryBars(hSummary,"summary",0,"<K*>")
oG2antt.EndUpdate()
1554
Is there any way to "unselect" radio group
/*begin event DblClick(integer  Shift,long  X,long  Y) - Occurs when the user dblclk the left mouse button over an object.*/
/*
	OleObject var_Items
	any h
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		h = var_Items.CellChecked(1234)
		var_Items.CellHasCheckBox(0,h,true)
		var_Items.CellState(0,h,0)
		var_Items.CellHasCheckBox(0,h,false)
*/
/*end event DblClick*/

/*begin event SelectionChanged() - Fired after a new item has been selected.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.CellState(var_Items.FocusItem,0,1)
*/
/*end event SelectionChanged*/

OleObject oG2antt,var_Items
any h

oG2antt = ole_1.Object
oG2antt.MarkSearchColumn = false
oG2antt.SelBackColor = RGB(255,255,128)
oG2antt.SelForeColor = RGB(0,0,0)
oG2antt.Columns.Add("Default")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Radio 1")
	var_Items.CellHasRadioButton(h,0,true)
	var_Items.CellRadioGroup(h,0,1234)
	h = var_Items.AddItem("Radio 2")
	var_Items.CellHasRadioButton(h,0,true)
	var_Items.CellRadioGroup(h,0,1234)
	var_Items.CellState(h,0,1)
	h = var_Items.AddItem("Radio 3")
	var_Items.CellHasRadioButton(h,0,true)
	var_Items.CellRadioGroup(h,0,1234)
1553
The Column.Alignment property does not seem to work for cells with images in them. What can be done
OleObject oG2antt,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oG2antt.TreeColumnIndex = -1
oG2antt.DrawGridLines = -1
oG2antt.HeaderHeight = 24
oG2antt.DefaultItemHeight = 24
var_Column = oG2antt.Columns.Add("Image")
	var_Column.AllowSizing = false
	var_Column.Width = 32
	var_Column.HTMLCaption = "<img>1</img>"
	var_Column.HeaderAlignment = 1
	var_Column.Alignment = 1
	var_Column.Def(17,1)
oG2antt.Columns.Add("Rest")
var_Items = oG2antt.Items
	var_Items.AddItem("<img>1</img>")
	var_Items.AddItem("<img>2</img>")
	var_Items.AddItem("<img>3</img>")
oG2antt.EndUpdate()
1552
Is there any way to determine in a bar would overlay another bar or to not allow this and get some error indication

/*begin event BarResize(long  Item,any  Key) - Occurs when a bar is moved or resized.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Refresh()
*/
/*end event BarResize*/

OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 22
oG2antt.Columns.Add("InterectBars")
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,48)
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.OverlaidType = 2
		var_Bar.Overlaid(2,"ERROR")
	var_Bar1 = var_Chart.Bars.Add("ERROR")
		var_Bar1.Color = RGB(255,0,0)
		var_Bar1.Pattern = 1
		var_Bar1.Height = 7
var_Items = oG2antt.Items
	h = var_Items.AddItem("")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A","A")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-05,"B","B")
	var_Items.CellValue(h,0,var_Items.IntersectBars(h,"A",h,"B"))
	h = var_Items.AddItem("")
	var_Items.AddBar(h,"Task",2001-01-06,2001-01-09,"A","A")
	var_Items.AddBar(h,"Task",2001-01-10,2001-01-13,"B","B")
	var_Items.CellValue(h,0,var_Items.IntersectBars(h,"A",h,"B"))
	h = var_Items.AddItem("")
	var_Items.AddBar(h,"Task",2001-01-06,2001-01-09,"B","B")
	var_Items.AddBar(h,"Task",2001-01-10,2001-01-13,"A","A")
	var_Items.CellValue(h,0,var_Items.IntersectBars(h,"A",h,"B"))
oG2antt.EndUpdate()
1551
Is it possible to change the font size of the header compared to that of the control. I would like to make the font of the headers smaller
OleObject oG2antt,var_Column,var_Columns,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.HeaderHeight = 32
var_Columns = oG2antt.Columns
	var_Column = var_Columns.Add("ID")
		var_Column.HTMLCaption = "<font ;16>ID"
		var_Column.Width = 32
		var_Column.AllowSizing = false
	var_Columns.Add("Task").HTMLCaption = "<font ;16>Task"
oG2antt.FocusColumnIndex = 1
oG2antt.ShowFocusRect = false
oG2antt.Chart.PaneWidth(true,0)
var_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem(1),1,"Task A")
	var_Items.CellValue(var_Items.AddItem(2),1,"Task B")
oG2antt.EndUpdate()
1550
How can I create items and bars at runtime
OleObject oG2antt,var_Chart,var_Column,var_Columns

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
	var_Column = var_Columns.Add("ID")
		var_Column.FormatColumn = "1 index ''"
		var_Column.Width = 32
		var_Column.AllowSizing = false
	var_Columns.Add("Task").Editor.EditType = 1
oG2antt.FocusColumnIndex = 1
oG2antt.ShowFocusRect = false
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,128)
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.AllowCreateBar = 1
oG2antt.Template = "Chart.Bars(" + CHAR(34) + "Task" + CHAR(34) + "){Def(3) = " + CHAR(34) + "<%=%C1%>" + CHAR(34) + ";Def(4)=18}"
oG2antt.EndUpdate()
1549
How can I a group summary bar with a task bar, so when the summary bar changes the task bar will move accordingly

OleObject oG2antt,var_Chart,var_Items
any hSummary,hTask

oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,128)
	var_Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
	hSummary = var_Items.AddItem("Summary")
	var_Items.AddBar(hSummary,"Summary",2001-01-02,2001-01-02)
	hTask = var_Items.AddItem("Task A")
	var_Items.AddBar(hTask,"Task",2001-01-02,2001-01-05)
	var_Items.DefineSummaryBars(hSummary,"",hTask,"")
	hTask = var_Items.AddItem("Task B")
	var_Items.AddBar(hTask,"Task",2001-01-04,2001-01-08)
	var_Items.DefineSummaryBars(hSummary,"",hTask,"")
1548
How can I show the bars using a solid color, with no pattern inside

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 24
oG2antt.DrawGridLines = -1
var_Chart = oG2antt.Chart
	var_Chart.DrawGridLines = -1
	var_Chart.NonworkingDays = 0
	var_Chart.PaneWidth(false,128)
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.Bars.Item("Task").Pattern = 1
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Solid A")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A")
	var_Items.AddBar(h,"Task",2001-01-05,2001-01-07,"B")
	var_Items.ItemBar(h,"B",33,255)
	var_Items.AddBar(h,"Task",2001-01-08,2001-01-10,"C")
	var_Items.ItemBar(h,"C",33,65280)
	h = var_Items.AddItem("Solid B")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A")
	var_Items.ItemBar(h,"A",7,255)
	var_Items.AddBar(h,"Task",2001-01-05,2001-01-07,"B")
	var_Items.ItemBar(h,"B",33,255)
	var_Items.ItemBar(h,"B",7,65280)
	var_Items.AddBar(h,"Task",2001-01-08,2001-01-10,"C")
	var_Items.ItemBar(h,"C",33,16711680)
	var_Items.ItemBar(h,"C",7,16711935)
oG2antt.EndUpdate()
1547
Basically what I am trying to do is replicate MS Project look & feel. Is that possible

OleObject oG2antt,var_Appearance,var_Chart

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BNUMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYQEiKLoaRzAcwyDAcQRFCKUJxhEYZai+NobSBQMZqBQgASIUCLZ5ACSYEigAovTULCKwJiWNZDUTRcTxCKQahLLivIhGUYKfgmY5lT5VUT1HS9IShJSmKTlORLOi+M4zUJLc4SVblGz7FyfYDBKygLqqFigLAxdDYTRNfzjHiTKbtGA7MADA4DVTAeC2bC+EYVTytY4sHQrIACZ5iWREMhXTi0E4rTa6dTxaS6KzKGqsZbsNAbHLdHTfVy1Mx1XaobqDJZdaTpdjaTDeJSjVjKdx4TZqSizjSGJOgcU4RhcIQDDURhIESXwEGgbQJBQQjeggQBiC4NJAluGJrAUB5Lmmc56n4Pp/i+NQjmqdQ5k2J5+AGAAgCgFgEgAHxQAGfoBmAOA2AaAxghgLgOgMIJ4AoER8mEWBSBoNohHKAgZgSYgIHYH4ImCB5OAqBghjiEgcgmIQoioD4IiKGJGCsUgUHiVirmOBQVAEgI=")
	var_Appearance.Add(39,"CP:1 -1 -1 0 0")
	var_Appearance.Add(40,"gBFLBCJwBAEHhEJAEGg4BEcMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTZKkAZwEiKLoaRzAcwyDAcQRFCKUJxlKa5PjaLwAAbJMZKAqDDgBIijIqnKA5JoyKIkTzCIJxXScByDGqNaQoehYXhEMg1CTXVgRCKoYTDBKybLqGT6VoCP5vWJaURWHZFTTJOyNagmSJ6XACbQMW7gNYQGBEEigNIxToOU4jFDGIB2VAQRK5BDQbQSFCpIRCCRQYhcQJ6YIAD76HomS5NU7UNKhHSdMy3J6ra5sOqbBqWa5LWjbNq3DadSzvPKub5vexwHwWawSUDkOR5Li+M43S4JPS5bZdDxPiWVJrnWOw9F6XxTiGWpsHcO5+C6Xx7kOZpwHoOxeF8T4fkeYJgnEdZwOwQRBnSex9H6f4vk+c5xn4fZQhQBCAg==")
	var_Appearance.Add(41,"gBFLBCJwBAEHhEJAEGg4BQICg6AADACAxRDAMkOQAGaAoDDUMQyQwAAxDSK8EwsACEIrjKCRShyCYZRhGcTALBMIwKGABIRGUZJGDkOYgDCBEhTHDUOwHGyQYDkCQoRiYMAwTBQMaTXDdCQ1ECkJomObqAgkMZCTbKMySAA0NgPD6sKSjOIRSDUJZcV5EoAKfiqZIRSJSMZVLLVNSVJipAAlOTZPo6JJuTLOE4WVRcSydH6oAApeg6KoYAFzQAEDCbYgOTKBYLUOCwTZmDwTK6BcTtXDbejeYYcZ7DNj2NYtJ4TRCBcpzLLIXrCKg0TBPQ4YNC2DT5VDWIq1aDdQo7MpxWjlGI5Ri2c51UDSYi0G4tDyLSYWXDfFSQTrHDQXhAAghCUAxJgyaB1DkGRyDCKBhAiGwLg0DYhCKDI8CcVwIAwRotBeAYCCmBZ0nsfR+n+L5PlYE53BwTpzn4AIAiAGAOAMfZfmeVBwDuD54C4DYDCCaA6AgQJfHGPJtD+YRoGIF4GGGrAAH2RpjjCf4IGIOIKCSCQhmeXBtDqT54i4LYLCKaI6CkfRGlOKgtg2IxYl4OoMkwIYwmkP5jmkAg/hAZAYnAaw6A+eQeEmEgkikKg8BqDkYFCFIlBkThTg8BoThif4WGWORqFyFwjkGIJlD+ZgphIY4ZGYWYEmSGQmjGIhthvMpwGcOJPnmTh1h0JxploPAZg4I5+HyH4nlmfh/g8BhTgSf4hGgegagiIlShCYA/miahCg+JBpUIYw3k+ehehmJgpioaoWDeKYagAY4oioSZFn2BQfFGCJdD+aoqjKK4rGqWJwGENwPnqTo1i1gtiBgDYzn6PIviuWp+j+DwFnMaJ/jEbB7BqSIyCOQR4lkP5smsQpPjQbQbDSWI0C0cR6lmNpqGMCgJDCBZTFyf44G4O4KmSOWTnCVg/m6K4ymuOxu4OWw1E+e5OnWPQvGvYgWg0Q5+nyP4vlvE+OBMTJ/kEcB8BsCJCDATArA6QhxAgeIgkScRMFcFp" &
 +"FlCFAEICA")
	var_Appearance.Add(42,"gBFLBCJwBAEHhEJAEGg4BY8MQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAwjQLMEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYgEiKLoaRzAcwyDAcQRFCKUJxhEY5ai+NobRCAUiwHQUBr/I4AKLfeJ5dACKYNShRMrSABMNgZBKpJAqKiqJoiFoRDINIi2BYUIhqGCxYRseyZegmEYWVTREr3HKsVTtAanjZSJakXxnGaQJ7jKaLXo6II8YTIWBABaIAQiBahQArOiKchaTZ5YheFRYVBOG4bK6BcguW4qGxSXpuRxZOo2YAFVzNNC3YzkCIcegnIp9ZxeFK5Tg1Z4XKTaNwqPBcYpHPqdVhCOgYZwUb5XMjWNatLYIboziiUhzCAeJeG6ZAAAiBIUA0JgziGVJkGUGJIBgUYSBEN5VBoGxCEUHItjSFAxBcRhim4dIqFGTB+BUfxfneegAgCYAoBQFR+lQeASAEBRIGESAogMYJ4DoEIEmCaAqAoJoGGCbgYgaIYYG4HoHGICByCKAoKmGZBOgkYh4hoKIKmKKI2CmC5giMBINBgY0AjODRjgiXg6g2I8glUKAHEifhBhAJApBYRIRmQOQmAoOgLBIEhMhOJJZD4UoUGUSRCFaAoOHKPIAhYZY5GoXIXmWaYGF2GJlgKMB9DmZhpiIZ4aGaSYuG6GomigWgGDmCohmYdIdicWZeHqHRnCgHgIh8aAIBoCA/lAECAg")
oG2antt.Appearance = 671088640 /*0x28000000 | */
oG2antt.BackColor = RGB(255,255,255)
oG2antt.BackColorLevelHeader = RGB(255,255,255)
oG2antt.BackColorHeader = 654311424 /*0x27000000*/
oG2antt.SelBackColor = RGB(0,0,0)
oG2antt.SelForeColor = RGB(255,255,255)
var_Chart = oG2antt.Chart
	var_Chart.BackColorLevelHeader = 654311424 /*0x27000000*/
	var_Chart.BackColor = RGB(255,255,255)
	var_Chart.Bars.Item("Task").Color = 704643072 /*0x2a000000*/
oG2antt.FilterBarBackColor = 16777216 /*0x1000000*/
oG2antt.Background(32,687865856 /*0x29000000*/)
oG2antt.Background(64,16777216 /*0x1000000*/)
oG2antt.Background(18,16777216 /*0x1000000*/)
oG2antt.EndUpdate()
1546
Is there anyway to change the style of the splitter which separates the list/chart
OleObject oG2antt

oG2antt = ole_1.Object
oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oG2antt.Background(0,16777216 /*0x1000000*/)
oG2antt.Background(18,33488896 /*0x1ff0000*/)
1545
Does your control support subscript or superscript, in HTML captions

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,64)
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item 1")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"")
	var_Items.ItemBar(h,"",3,"<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1")
	var_Items.ItemBar(h,"",4,18)
1544
I have noticed that the column's header is changed once the cursor hovers it. Is it possible to change that visual appearance

OleObject oG2antt,var_Columns

oG2antt = ole_1.Object
oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
var_Columns = oG2antt.Columns
	var_Columns.Add("Column 1")
	var_Columns.Add("Column 2")
oG2antt.BackColorHeader = 16777216 /*0x1000000*/
oG2antt.Background(32,19760895 /*0x12d86ff*/)
1543
Is it possible to change the visual appearance of the columns selector/floating bar(3)

OleObject oG2antt,var_Columns

oG2antt = ole_1.Object
oG2antt.ColumnAutoResize = false
var_Columns = oG2antt.Columns
	var_Columns.Add("Column 1")
	var_Columns.Add("Column 2").Visible = false
oG2antt.VisualAppearance.Add(2,"c:\exontrol\images\normal.ebn")
oG2antt.VisualAppearance.Add(3,"c:\exontrol\images\pushed.ebn")
oG2antt.Background(92,33554432 /*0x2000000*/)
oG2antt.Background(87,50331648 /*0x3000000*/)
oG2antt.Background(93,RGB(246,245,240))
oG2antt.ColumnsFloatBarVisible = true
1542
Is it possible to change the visual appearance of the columns selector/floating bar(2)

OleObject oG2antt,var_Columns

oG2antt = ole_1.Object
oG2antt.ColumnAutoResize = false
var_Columns = oG2antt.Columns
	var_Columns.Add("Column 1")
	var_Columns.Add("Column 2").Visible = false
oG2antt.VisualAppearance.Add(3,"c:\exontrol\images\pushed.ebn")
oG2antt.Background(87,50331648 /*0x3000000*/)
oG2antt.ColumnsFloatBarVisible = true
1541
Is it possible to change the visual appearance of the columns selector/floating bar(1)

OleObject oG2antt

oG2antt = ole_1.Object
oG2antt.VisualAppearance.Add(2,"c:\exontrol\images\normal.ebn")
oG2antt.Background(92,33554432 /*0x2000000*/)
oG2antt.Background(87,RGB(246,245,240))
oG2antt.Background(93,RGB(246,245,240))
oG2antt.ColumnsFloatBarVisible = true
1540
I am using the ColumnsFloatBarVisible property on True, but still not able to add any column on that list
OleObject oG2antt,var_Columns

oG2antt = ole_1.Object
oG2antt.ColumnAutoResize = false
var_Columns = oG2antt.Columns
	var_Columns.Add("Column 1")
	var_Columns.Add("Column 2").Visible = false
oG2antt.ColumnsFloatBarVisible = true
1539
Is it possible to list a column to columns selector/floating bar, but still user can use it

OleObject oG2antt,var_Column,var_Columns

oG2antt = ole_1.Object
oG2antt.ColumnAutoResize = false
var_Columns = oG2antt.Columns
	var_Columns.Add("Column 1")
	var_Columns.Add("Column 2").Visible = false
	var_Column = var_Columns.Add("Column 3")
		var_Column.Visible = false
		var_Column.Enabled = false
oG2antt.ColumnsFloatBarVisible = true
1538
How can I prevent a specific column not to be listed in the columns selector/floating bar
OleObject oG2antt,var_Column,var_Columns

oG2antt = ole_1.Object
oG2antt.ColumnAutoResize = false
var_Columns = oG2antt.Columns
	var_Columns.Add("Column 1")
	var_Columns.Add("Column 2").Visible = false
	var_Column = var_Columns.Add("Column 3")
		var_Column.Visible = false
		var_Column.AllowDragging = false
oG2antt.ColumnsFloatBarVisible = true
1537
Is it possible to change the "Columns" caption being shown in the columns selector/floating bar
OleObject oG2antt,var_Columns

oG2antt = ole_1.Object
oG2antt.ColumnAutoResize = false
var_Columns = oG2antt.Columns
	var_Columns.Add("Column 1")
	var_Columns.Add("Column 2").Visible = false
oG2antt.Description(26,"Hidden Columns")
oG2antt.ColumnsFloatBarVisible = true
1536
How can I show the columns selector, so the user can drag and drop columns to the view
OleObject oG2antt,var_Columns

oG2antt = ole_1.Object
oG2antt.ColumnAutoResize = false
var_Columns = oG2antt.Columns
	var_Columns.Add("Column 1")
	var_Columns.Add("Column 2").Visible = false
oG2antt.ColumnsFloatBarVisible = true
1535
The column's header is changed while the cursor hovers it. Is it possible to prevent that
OleObject oG2antt,var_Columns

oG2antt = ole_1.Object
var_Columns = oG2antt.Columns
	var_Columns.Add("Column 1")
	var_Columns.Add("Column 2")
oG2antt.Background(32,-1)
1534
Is there any property I can save and restore automatically the current setting, column position, size, and so on (2)
OleObject oG2antt,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
oG2antt.Layout = "Select=" + CHAR(34) + "0" + CHAR(34) + ";SingleSort=" + CHAR(34) + "C0:2" + CHAR(34) + ";Columns=1"
oG2antt.EndUpdate()
1533
Is there any property I can save and restore automatically the current setting, column position, size, and so on (1)
OleObject oG2antt,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
oG2antt.Layout = "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAGQAqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0jE3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI="
oG2antt.EndUpdate()
1532
How do I arrange my columns on multiple levels

OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = false
oG2antt.DrawGridLines = -1
var_Columns = oG2antt.Columns
	var_Column = var_Columns.Add("C0")
		var_Column.ExpandColumns = "1,2"
		var_Column.DisplayExpandButton = false
	var_Columns.Add("C1")
	var_Columns.Add("C2")
	var_Columns.Add("C3")
	var_Column1 = var_Columns.Add("C4")
		var_Column1.ExpandColumns = "5,6"
		var_Column1.DisplayExpandButton = false
	var_Columns.Add("C5")
	var_Column2 = var_Columns.Add("C6")
		var_Column2.ExpandColumns = "6,7"
		var_Column2.DisplayExpandButton = false
	var_Columns.Add("C7")
oG2antt.EndUpdate()
1531
Does your control support expandable header or columns, so I can arrange it on multiple levels

OleObject oG2antt,var_Column,var_Column1,var_Columns

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -1
oG2antt.BackColorLevelHeader = RGB(240,240,240)
var_Columns = oG2antt.Columns
	var_Column = var_Columns.Add("Photo")
		var_Column.AllowSizing = false
		var_Column.Width = 32
	var_Columns.Add("Personal Info")
	var_Columns.Add("Title")
	var_Columns.Add("Name")
	var_Columns.Add("First")
	var_Columns.Add("Last")
	var_Columns.Add("Address")
	var_Columns.Item("Personal Info").ExpandColumns = "2,3"
	var_Column1 = var_Columns.Item("Name")
		var_Column1.ExpandColumns = "4,5"
		var_Column1.Expanded = false
oG2antt.EndUpdate()
1530
I need a Day/Hour Display where the Bars should be created/resized in a 15 Minute Scale in a normal View, but in a 5 Minute Scale when on an InsideZoom. How can I do that
OleObject oG2antt,var_Chart,var_InsideZoomFormat,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,128)
	var_Chart.AllowCreateBar = 1
	var_Chart.UnitWidth = 50
	var_Chart.FirstVisibleDate = 2013-01-01
	var_Chart.LevelCount = 2
	var_Chart.Level(0).Label = 4096
	var_Chart.Level(1).Label = "<%h%>:<%nn%>"
	var_Chart.Level(1).Unit = 1048576
	var_Chart.Level(1).Count = 60
	var_Chart.ResizeUnitScale = 1048576
	var_Chart.ResizeUnitCount = 15
	var_Chart.AllowInsideZoom = true
	var_InsideZoomFormat = var_Chart.DefaultInsideZoomFormat
		var_InsideZoomFormat.InsideCount = 5
		var_InsideZoomFormat.InsideUnit = 1048576
		var_InsideZoomFormat.InsideLabel = "<%nn%>"
var_Items = oG2antt.Items
	var_Items.AddItem("Item")
oG2antt.EndUpdate()
1529
Can I change the format of date to be shown in the control
OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oG2antt = ole_1.Object
oG2antt.Chart.PaneWidth(true,0)
var_Columns = oG2antt.Columns
	var_Columns.Add("Default")
	var_Column = var_Columns.Add("Format.1")
		var_Column.ComputedField = "%0"
		var_Column.FormatColumn = "dateF(value) replace `/` with `-`"
	var_Column1 = var_Columns.Add("Format.2")
		var_Column1.ComputedField = "%0"
		var_Column1.Def(17,1)
		var_Column1.FormatColumn = "`<b>`+ shortdate(value) + `</b> ` + timeF(value)"
	var_Column2 = var_Columns.Add("Format.3")
		var_Column2.ComputedField = "%0"
		var_Column2.Def(17,1)
		var_Column2.FormatColumn = "` <b>`+ ( weekday(value) case ( 0 : `Su`; 1 : `Mo`; 2 : `Tu`; 3 : `We`; 4 : `Th`; 5 : `Fr`; 6 : `Sa`) ) + `</b> ` + ( dateF(value) replace `/` with `-` )"
var_Items = oG2antt.Items
	var_Items.AddItem(DateTime(2001-01-01,10:00:00))
	var_Items.AddItem(DateTime(2001-01-02,10:00:00))
1528
How can I display a text/caption on the chart part of the control

OleObject oG2antt,var_Chart,var_Items,var_Note,var_Note1,var_Note2,var_Notes
any h1

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.AntiAliasing = true
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2000-12-26
	var_Chart.PaneWidth(false,128)
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Item 1")
	var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"A")
	var_Items.ItemBar(h1,"A",3,"text")
	h1 = var_Items.AddItem("Item 2")
	var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"A")
	var_Items.ItemBar(h1,"A",3,"text outside associated with a bar")
	var_Items.ItemBar(h1,"A",4,18)
	h1 = var_Items.AddItem("Item 3")
	var_Items.AddBar(h1,"",2001-01-02,2001-01-02,"A")
	var_Items.ItemBar(h1,"A",3,"text with no bar associated")
	h1 = var_Items.AddItem("Item 4")
	var_Items.AddBar(h1,"Task",2001-01-02,2001-01-05,"A")
	h1 = var_Items.AddItem("Item 5")
	h1 = var_Items.AddItem("Item 6")
	h1 = var_Items.AddItem("Item 7")
	h1 = var_Items.AddItem("Item 8")
	var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"A")
	h1 = var_Items.AddItem("Item 8")
	var_Items.AddBar(h1,"Task",2001-01-02,2001-01-06,"A")
var_Notes = oG2antt.Chart.Notes
	var_Notes.Add("1S",oG2antt.Items.ItemByIndex(3),"A","<font ;6>Movable Note Inside the Bar").PartCanMove(0,true)
	var_Notes.Add("AK",oG2antt.Items.ItemByIndex(6),2001-01-06,"Note associated with a date: <%mm%>/<%dd%>/<%yyyy%>")
	var_Note = var_Notes.Add("2S",oG2antt.Items.ItemByIndex(7),"A","<font ;6>Fixed Note Left")
		var_Note.ShowLink = 0
		var_Note.PartVOffset(1,0)
		var_Note.PartHOffset(0,-32)
		var_Note.PartShadow(1,false)
		var_Note.PartBackColor(1,RGB(255,255,0))
	var_Note1 = var_Notes.Add("3S",oG2antt.Items.ItemByIndex(8),"A","Start<br><%mmm%> <%d%> <%yyyy%>")
		var_Note1.PartCanMove(1,true)
		var_Note1.PartHOffset(1,-64)
		var_Note1.LinkStyle = 2
		var_Note1.LinkWidth = 2
		var_Note1.LinkColor = RGB(0,0,255)
	var_Note2 = var_Notes.Add("3F",oG2antt.Items.ItemByIndex(8),"A","End<br><%mmm%> <%d%> <%yyyy%>")
		var_Note2.RelativePosition = 1
		var_Note2.PartCanMove(1,true)
		var_Note2.LinkStyle = 2
		var_Note2.LinkWidth = 2
		var_Note2.LinkColor = RGB(0,0,255)
oG2antt.EndUpdate()
1527
Which is the best way of change Bar parent
OleObject oG2antt,var_Items
any h1,h2,h3

oG2antt = ole_1.Object
oG2antt.Debug = true
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Item 1")
	var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"A")
	h2 = var_Items.AddItem("Item 2")
	var_Items.AddBar(h2,"Task",2001-01-03,2001-01-05,"B")
	h3 = var_Items.AddItem("Item 3")
	var_Items.AddBar(h3,"Task",2001-01-05,2001-01-07,"A")
	var_Items.ItemBar(h3,"A",512,h1)
	MessageBox("Information",string( "The Bar A of H3 fails to change the parent to H1 as it has already a bar named A" ))
	var_Items.ItemBar(h3,"A",512,h2)
	MessageBox("Information",string( "The Bar A of H3 can be moved to H2, as it contains no bars with the key A" ))
1526
Is it possible to have a bar in bar

OleObject oG2antt,var_Appearance,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BS4Dg6AADACAxRDAMgBQKAAzQFAYbBmGaGAAGIZhQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDKAkRRdDSOYDmGQYDiCIoRShOMIjRLUXxtDYEIRkSZYJAKCTtBwJAAURRULR6ACUYDnSRqGj6CQKRqEVBSLAdKyXJKvaZhGIRSDUJZkWZEIyjBY8EzXNqrIDoGKqYgOQ4XV5TFgxPR9IyhEAaLrleT5TjOII/RpOEpYXSVHxFRAAAYhG4wABCXAAXjYF5Udhlfx3FCvMbqeCcSgOWoDZZRFa0PjVQQtNC4IitGzrMqrNaDSBlGigBauKw3TKlMzye7repOA5+aJGVz7VgfGz7EDjKg0GJcgMex3lOZB5jgPYHHMaYxjeRBilWbZNG4B49l2do6hkfIhECUhjDoHROEYUYMgEbQMCEEx+lGIY0CQUQJHYGoUgQGBFkgB4FmkOINiMbBrAwQoxngSQMCCYJAG8DYCkMZJNDOAhAHCbYGGGOBqByB5hiMcJSDORhwjQKoEkKSIgHoEZEDgWJOECSwyGSGwjkWUJUh8HADiiXA6CSRgQliFwcgcSICB2EJkCKDIAB4CAxDgMoOiOIkfA4CoiDCDhAmUEg4hEF4DHKCByA8JYpHIWwbAMIIuC6EIkCiOBwA2QpSHQbgOkoIZMD2GxmnmOhVhUJQiEwYAOAoQZQD6HhnjmaIfBuQ5BlQPQLiMEhuEKIRHmEKA7h+Q5ChQdQPmiahCg+JBnDAAhVCVPpoicHYEAobodicKZqHqGAO0YNA0ikQxKg6IYnAqAZcEGKxqnqOowiUZRSFwYwPAqIZkEOLhrjqaIqB4BAqn6QYwCwKwWkSMZECKLo6jKBA7DKTItWEZBlA8SpRmwRY1G0exYi0HoEEsbpdjcLZrgaYI4kQQo6laOYEFuIpojQCJiHAZgPksAZ0EePBvDuSp0j2bxrmadY+m8QpGnKP4EHwAwAjsCZxiQQQtAgAQrAiQowhKUB" &
 +"/BIcJsEMD5EHETBPBYEhLFwJwZBKMY8G6bAoEaIQMjcIIEkzUZJAscgEEuShyjyKwskucpskQSwuDITJQEyTYzGuMIjBsBBCmiBATjObQDD+UB0E0DxGlCNINASO5PnSMQ7E2Uxu3CbQRguUgYFCVR1H0WxYC2R5xDSDgVWiXA8AyNggksXwPDWQQ3FgL4IHERxsluNpdj6bAqAacQckAEQBQWxfDzF4BUYYqBKhEEQNMDgPQGhFGIDgVwKR3iiCiIIIgig+BfA2MYOLtAqA4ESCYDIFgVDyGEKkPAQgFBDDwG4DYnQzg5GiDIOAZw3hCDoA8MQIA9PeGEHkRIyx6jiOMEoTAxRMhoCeIwUQKSbCKH6NgV43AECyFeEkEQdBTAxC0FESQYhgB+DGPcTwYBXBZEeCIOoKg5j6EIJAbQNxJCjCAMAJwDRxghA4DEBYpk1hnHwH4DIxg3AaFGGgMQFwHhBHgGkewhhCDIHMDkDY0AlAGEAIAgIA=")
	var_Appearance.Add(2,"c:\exontrol\images\normal.ebn")
	var_Appearance.Add(3,"CP:2 2 -4 2 4")
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,256)
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2001-01-01
oG2antt.Columns.Add("Info")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Range Moveable Frame")
	var_Items.AddBar(h,"Task",2001-01-04,2001-01-08,"F")
	var_Items.ItemBar(h,"F",6,"This bar can be moved inside the displayed range.")
	var_Items.ItemBar(h,"F",22,2001-01-02)
	var_Items.ItemBar(h,"F",25,2001-01-18)
	var_Items.ItemBar(h,"F",26,32)
	var_Items.ItemBar(h,"F",27,90)
	h = var_Items.AddItem("Range Moveable Pattern")
	var_Items.AddBar(h,"Task",2001-01-06,2001-01-10,"F")
	var_Items.ItemBar(h,"F",6,"This bar can be moved inside the displayed range.")
	var_Items.ItemBar(h,"F",22,2001-01-02)
	var_Items.ItemBar(h,"F",25,2001-01-18)
	var_Items.ItemBar(h,"F",26,1)
	var_Items.ItemBar(h,"F",27,90)
	h = var_Items.AddItem("Range Moveable EBN Transparent")
	var_Items.AddBar(h,"Task",2001-01-08,2001-01-12,"F")
	var_Items.ItemBar(h,"F",6,"This bar can be moved inside the displayed range.")
	var_Items.ItemBar(h,"F",22,2001-01-02)
	var_Items.ItemBar(h,"F",25,2001-01-18)
	var_Items.ItemBar(h,"F",26,16777216)
	var_Items.ItemBar(h,"F",27,50)
	h = var_Items.AddItem("Range Moveable EBN Opaque 1")
	var_Items.ItemHeight(h,24)
	var_Items.AddBar(h,"Task",2001-01-10,2001-01-14,"F")
	var_Items.ItemBar(h,"F",6,"This bar can be moved inside the displayed range.")
	var_Items.ItemBar(h,"F",22,2001-01-02)
	var_Items.ItemBar(h,"F",25,2001-01-18)
	var_Items.ItemBar(h,"F",26,33554432)
	h = var_Items.AddItem("Range Moveable EBN Opaque 2")
	var_Items.ItemHeight(h,24)
	var_Items.AddBar(h,"Task",2001-01-12,2001-01-16,"F")
	var_Items.ItemBar(h,"F",6,"This bar can be moved inside the displayed range.")
	var_Items.ItemBar(h,"F",22,2001-01-02)
	var_Items.ItemBar(h,"F",25,2001-01-18)
	var_Items.ItemBar(h,"F",26,50331648)
oG2antt.EndUpdate()
1525
How can I show vertical lines using the SelectDate

OleObject oG2antt,var_Appearance,var_Chart

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BK8IQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTY4lCQJAiKLoeQLHMBybJ8LwiGQaRJmeaYRDUMI6QjPVARVIkaxhCSSaKpIAIBEB")
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,0)
	var_Chart.FirstVisibleDate = 2008-01-01
	var_Chart.MarkTodayColor = var_Chart.BackColor
	var_Chart.LevelCount = 2
	var_Chart.AllowSelectDate = false
	var_Chart.MarkSelectDateColor = 16777216 /*0x1000000*/
	var_Chart.SelectLevel = 1
	var_Chart.SelectDate(2008-01-15,true)
	var_Chart.SelectDate(2008-01-18,true)
oG2antt.EndUpdate()
1524
How can I show vertical lines using the SelectDate

OleObject oG2antt,var_Chart

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,0)
	var_Chart.FirstVisibleDate = 2008-01-01
	var_Chart.MarkTodayColor = var_Chart.BackColor
	var_Chart.LevelCount = 2
	var_Chart.AllowSelectDate = false
	var_Chart.MarkSelectDateColor = 2147418112 /*0x7fff0000*/
	var_Chart.SelectLevel = 1
	var_Chart.SelectDate(2008-01-15,true)
	var_Chart.SelectDate(2008-01-18,true)
oG2antt.EndUpdate()
1523
How can I find if there is any filter applied to the control
/*begin event FilterChange() - Occurs when the filter was changed.*/
/*
	oG2antt = ole_1.Object
	MessageBox("Information",string( "If negative, the filter is present, else not" ))
	MessageBox("Information",string( String(oG2antt.Items.VisibleItemCount) ))
*/
/*end event FilterChange*/

OleObject oG2antt,var_Column,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.TreeColumnIndex = -1
oG2antt.FilterInclude = 4
var_Column = oG2antt.Columns.Add("Column")
	var_Column.DisplayFilterButton = true
	var_Column.FilterType = 240
	var_Column.Filter = "C1"
var_Items = oG2antt.Items
	h = var_Items.AddItem("R1")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("R2")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
oG2antt.ApplyFilter()
oG2antt.EndUpdate()
1522
How can I prevent showing the lines for the hierarchy while using the exMatchingItemsOnly option
OleObject oG2antt,var_Column,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.TreeColumnIndex = -1
oG2antt.FilterInclude = 4
var_Column = oG2antt.Columns.Add("Column")
	var_Column.DisplayFilterButton = true
	var_Column.FilterType = 240
	var_Column.Filter = "C1|C2"
var_Items = oG2antt.Items
	h = var_Items.AddItem("R1")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("R2")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
oG2antt.ApplyFilter()
oG2antt.EndUpdate()
1521
Is there any method to get only the matched items and not the items with his parent
OleObject oG2antt,var_Column,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.FilterInclude = 4
var_Column = oG2antt.Columns.Add("Column")
	var_Column.DisplayFilterButton = true
	var_Column.FilterType = 240
	var_Column.Filter = "C1|C2"
var_Items = oG2antt.Items
	h = var_Items.AddItem("R1")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("R2")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
oG2antt.ApplyFilter()
oG2antt.EndUpdate()
1520
Is it possible to specify a working day exception that would override the non-working day pattern
OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Pattern")
var_Chart = oG2antt.Chart
	var_Chart.FirstWeekDay = 1
	var_Chart.FirstVisibleDate = 2008-01-24
	var_Chart.PaneWidth(false,52)
	var_Chart.LevelCount = 2
var_Items = oG2antt.Items
	var_Items.AddItem("Default")
	var_Items.ItemNonworkingUnits(var_Items.AddItem("1/26/2008"),false,"weekday(value) case (default:0 ; 0:1; 6:(value != #1/26/2008#))")
	var_Items.ItemNonworkingUnits(var_Items.AddItem("1/27/2008"),false,"weekday(value) case (default:0 ; 0:(value != #1/27/2008#); 6:1)")
	var_Items.ItemNonworkingUnits(var_Items.AddItem("Sundays"),false,"weekday(value) = 0")
oG2antt.EndUpdate()
1519
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area
OleObject oG2antt

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.ScrollBars = 15
oG2antt.Chart.ToolTip = ""
oG2antt.ScrollPartVisible(0,65536,true)
oG2antt.ScrollPartVisible(1,65536,true)
oG2antt.ScrollPartVisible(2,65536,true)
oG2antt.ScrollWidth = 4
oG2antt.Background(276,RGB(240,240,240))
oG2antt.Background(260,RGB(128,128,128))
oG2antt.ScrollHeight = 4
oG2antt.Background(404,oG2antt.Background(276))
oG2antt.Background(388,oG2antt.Background(260))
oG2antt.Background(511,oG2antt.Background(276))
oG2antt.EndUpdate()
1518
Is it possible to associate an extra frame, border, EBN to the bar/task

OleObject oG2antt,var_Appearance,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BNACg6AADACAxRDAMgBQKAAzQFAYbhsGCGAAGEZBQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDEAkRRdDSOYDmGQYDiCIoRShOMaTVJ8bQ2ASEaAmWK3boUAJFPrFc6ABJMZRRISXJABeKwRoGJYaUhRdDRNCIZBqEqua7iEZRQqCCZkWZPNTRVScByhF61IDpWjKLDKJJwXBMcxyBL0NRxFTAKawGoYbq0AJQVTQcZPVhgAYYfSlMDuOB5Gq+G5SQjhWIgBjde4dRrHYrsGyQAp7JJoWLZMQyFIFIYNTS8LgpPI6LyyP5rABhWw5PiUVyfWTMdwzPatbyKHJicbpepWPxcNYtNzcNb3SAbn+KgAmqP5yDiIAACIEhQDSGJOgcU4RhQYwgFUQwIESXxEGgbQJBQQhzHmUAAGILh0lWbpEGIIQQHuegaAaoRYBUBYBCgFAOAOQJgC4CgCCCQAUAQARACgRZFEa3ogCcCICDCDZ9AeH5wGgFoHmAUBIA6CJgiALgMAIABYiYER+BuMIyC4CZjAcYgygyYxIlYNoNBGMJGDoCximiXg+g+Yx0G0DgNiOIJGECEZkgQbA7A8A5JA4SITmOZBsEGFJDkkLhQhXOItBYEZEGEHBCBARApGIYh1EAaIoAMQIEkENBNBGZpJg4YgCGcAAaGUAAFCmVhqBMZppGADQDACQAmAwAAFgoBh1BSJ4ZFwEEdHmcFmgWag2gEFhoFlINYkoHAQAABhKGQX4jGkGQ8BiJ5BDqBAABqKl1GSJxkgAcoqAYAR3lQcIrkaOoSiiEZCBCBAgiqAaJHaLpHBqQoliaBZxHwWYwkUQRMFQExEmENBJBIRIBAgQwQkOYJ0D4DhDgCYAzjWQpgjwLgKi2QIWl4CACADeofC4SpsHcHArlqRBqBkbpLAaQoxAUQRQE6PLoCaT40AOYJ6lWNdXlAL4/m2QIql4CRAAQBCAg=")
	var_Appearance.Add(2,"CP:1 -4 -4 4 4")
oG2antt.Columns.Add("Task")
oG2antt.DrawGridLines = -1
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,128)
	var_Chart.DrawGridLines = -1
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2001-01-02,2001-01-05,"K1")
	h = var_Items.AddItem("Task/ EBN Frame")
	var_Items.ItemHeight(h,32)
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-15,"K2")
	var_Items.ItemBar(h,"K2",51,33554432)
	h = var_Items.AddItem("Task/ EBN Frame")
	var_Items.ItemHeight(h,32)
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-15,"K2")
	var_Items.ItemBar(h,"K2",51,50331392)
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2001-01-02,2001-01-05,"K3")
oG2antt.EndUpdate()
1517
Is it possible to automatically display the working days duration in a column
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Columns,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
	var_Columns.Add("Tasks")
	var_Column = var_Columns.Add("Duration")
		var_Column.Def(18,513)
		var_Column.Def(19,"A")
	var_Column1 = var_Columns.Add("Working")
		var_Column1.Def(18,258)
		var_Column1.Def(19,"A")
oG2antt.Items.AllowCellValueToItemBar = true
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,256)
	var_Chart.FirstVisibleDate = 2002-01-03
	var_Chart.LevelCount = 2
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task",2002-01-04,2002-01-08,"A")
oG2antt.EndUpdate()
1516
How can I apply colors to columns section of the control based on properties of the displaying bars

/*begin event BarResize(long  Item,any  Key) - Occurs when a bar is moved or resized.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Refresh()
*/
/*end event BarResize*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_ConditionalFormat,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Column = oG2antt.Columns.Add("<fgcolor=FF0000>Tasks > 2 days")
	var_Column.HTMLCaption = var_Column.Caption
var_Column1 = oG2antt.Columns.Add("PropertyBar")
	var_Column1.Visible = false
	var_Column1.Def(19,"")
	var_Column1.Def(18,513)
oG2antt.Items.AllowCellValueToItemBar = true
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,96)
	var_Chart.NonworkingDays = 0
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%1 > 2")
	var_ConditionalFormat.ForeColor = RGB(255,0,0)
	var_ConditionalFormat.Bold = true
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.SelForeColor = oG2antt.ForeColor
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04,"")
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-04,2001-01-07,"")
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04,"")
oG2antt.EndUpdate()
1515
Is it possible to update the colors on columns caption to highlight the critical path ( CPM )

/*begin event BarResize(long  Item,any  Key) - Occurs when a bar is moved or resized.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.SchedulePDM(Item,Key)
	oG2antt.Refresh()
*/
/*end event BarResize*/

OleObject oG2antt,var_Chart,var_Column,var_ConditionalFormat,var_Items
any h1,h2,h3,h4

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Column = oG2antt.Columns.Add("PropertyBar")
	var_Column.Visible = false
	var_Column.Def(19,"")
	var_Column.Def(18,269)
oG2antt.Items.AllowCellValueToItemBar = true
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,48)
	var_Chart.NonworkingDays = 0
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%1 != 0")
	var_ConditionalFormat.ForeColor = RGB(255,0,0)
	var_ConditionalFormat.Bold = true
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.SelForeColor = oG2antt.ForeColor
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",2001-01-02,2001-01-04,"")
	var_Items.AddLink("L1",h1,"",h2,"")
	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",2001-01-02,2001-01-04,"")
	var_Items.AddLink("L2",h2,"",h3,"")
	h4 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h4,"Task",2001-01-02,2001-01-03,"")
	var_Items.AddLink("L3",h2,"",h4,"")
	var_Items.DefSchedulePDM(5,255)
	var_Items.DefSchedulePDM(7,255)
	var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
1514
I am using the AddShapeCorner to define icon-bars. Is it possible to define with a different color

OleObject oG2antt,var_Bar,var_Bar1,var_Bar2,var_Bars,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,128)
	var_Bars = var_Chart.Bars
		var_Bars.AddShapeCorner(12345,1)
		var_Bar = var_Bars.Copy("Milestone","Original")
			var_Bar.StartShape = 12345 /*0x3020 | exShapeIconVBar | exShapeIconRight*/
			var_Bar.StartColor = -1
		var_Bar1 = var_Bars.Copy("Milestone","Red")
			var_Bar1.StartShape = 12345 /*0x3020 | exShapeIconVBar | exShapeIconRight*/
			var_Bar1.StartColor = RGB(255,0,0)
		var_Bar2 = var_Bars.Copy("Milestone","Green")
			var_Bar2.StartShape = 12345 /*0x3020 | exShapeIconVBar | exShapeIconRight*/
			var_Bar2.StartColor = RGB(0,255,0)
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Original"),"Original",2001-01-02,2001-01-02)
	var_Items.AddBar(var_Items.AddItem("Red"),"Red",2001-01-02,2001-01-02)
	var_Items.AddBar(var_Items.AddItem("Green"),"Green",2001-01-02,2001-01-02)
oG2antt.EndUpdate()
1513
My icon-bars shows different when displaying in the chart. Any ideas
OleObject oG2antt,var_Bar,var_Bars,var_Items

oG2antt = ole_1.Object
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Bars = oG2antt.Chart.Bars
	var_Bars.AddShapeCorner(12345,1)
	var_Bar = var_Bars.Item("Milestone")
		var_Bar.StartShape = 12345 /*0x3020 | exShapeIconVBar | exShapeIconRight*/
		var_Bar.StartColor = -1
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"Milestone",2001-01-02,2001-01-02)
1512
The items are not colored in the chart panel

OleObject oG2antt,var_Items
any h

oG2antt = ole_1.Object
oG2antt.Chart.PaneWidth(false,128)
oG2antt.Columns.Add("Default")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item")
	oG2antt.Chart.ItemBackColor(h,RGB(0,255,0))
	oG2antt.Items.ItemBackColor(h,RGB(0,255,0))
1511
I need to know how to determine the critical path (CPM) after the SchedulePDM procedure, so I can turn red the bars and links

/*begin event BarResize(long  Item,any  Key) - Occurs when a bar is moved or resized.*/
/*
	oG2antt = ole_1.Object
	oG2antt.Items.SchedulePDM(Item,Key)
*/
/*end event BarResize*/

OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3,h4

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,48)
	var_Chart.NonworkingDays = 0
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",2001-01-02,2001-01-04,"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",2001-01-02,2001-01-04,"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	h4 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h4,"Task",2001-01-02,2001-01-03,"K4")
	var_Items.AddLink("L3",h2,"K2",h4,"K4")
	var_Items.DefSchedulePDM(5,255)
	var_Items.DefSchedulePDM(7,255)
	var_Items.SchedulePDM(0,"K1")
oG2antt.EndUpdate()
1510
How can I display the Year in Thai, Buddhist, Korean format

OleObject oG2antt,var_Chart,var_Level

oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
	var_Chart.FirstWeekDay = var_Chart.LocFirstWeekDay
	var_Chart.MonthNames = var_Chart.LocMonthNames
	var_Chart.WeekDays = var_Chart.LocWeekDays
	var_Chart.AMPM = var_Chart.LocAMPM
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,0)
	var_Chart.UnitScale = 4096
	var_Level = var_Chart.Level(0)
		var_Level.Label = "<%mmmm%> <%d%>, <%loc_yyyy%> <r><%ww%>"
		var_Level.Unit = 256
		var_Level.ToolTip = var_Level.Label
	var_Chart.ToolTip = "<%ddd%> <%m%>/<%d%>/<%loc_yyyy%>"
oG2antt.Description(17,oG2antt.Chart.MonthNames)
oG2antt.DefaultEditorOption(30,oG2antt.Chart.MonthNames)
1509
How does localization work

OleObject oG2antt,var_Chart

oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
	var_Chart.FirstWeekDay = var_Chart.LocFirstWeekDay
	var_Chart.MonthNames = var_Chart.LocMonthNames
	var_Chart.WeekDays = var_Chart.LocWeekDays
	var_Chart.AMPM = var_Chart.LocAMPM
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,0)
1508
Is it possible to show the bars with a different brightness (2)

OleObject oG2antt,var_Appearance,var_Chart,var_Items
any h

oG2antt = ole_1.Object
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.Add(1,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task--.ebn")
	var_Appearance.Add(2,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task-.ebn")
	var_Appearance.Add(3,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task.ebn")
	var_Appearance.Add(4,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task+.ebn")
	var_Appearance.Add(5,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task++.ebn")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,128)
	var_Chart.NonworkingDays = 0
	var_Chart.Bars.Copy("Task","--").Color = 16777216 /*0x1000000*/
	var_Chart.Bars.Copy("Task","-").Color = 33554432 /*0x2000000*/
	var_Chart.Bars.Item("Task").Color = 50331648 /*0x3000000*/
	var_Chart.Bars.Copy("Task","+").Color = 67108864 /*0x4000000*/
	var_Chart.Bars.Copy("Task","++").Color = 83886080 /*0x5000000*/
oG2antt.Columns.Add("Brightness")
var_Items = oG2antt.Items
	h = var_Items.AddItem("0%")
	var_Items.AddBar(h,"--",2001-01-02,2001-01-04,"--")
	var_Items.AddBar(h,"-",2001-01-05,2001-01-07,"-")
	var_Items.AddBar(h,"Task",2001-01-08,2001-01-10,"")
	var_Items.AddBar(h,"+",2001-01-11,2001-01-13,"+")
	var_Items.AddBar(h,"++",2001-01-14,2001-01-16,"++")
	h = var_Items.AddItem("25%")
	var_Items.AddBar(h,"--",2001-01-02,2001-01-04,"--")
	var_Items.AddBar(h,"-",2001-01-05,2001-01-07,"-")
	var_Items.AddBar(h,"Task",2001-01-08,2001-01-10,"")
	var_Items.AddBar(h,"+",2001-01-11,2001-01-13,"+")
	var_Items.AddBar(h,"++",2001-01-14,2001-01-16,"++")
	var_Items.ItemBar(h,"<*>",19,25)
	h = var_Items.AddItem("50%")
	var_Items.AddBar(h,"--",2001-01-02,2001-01-04,"--")
	var_Items.AddBar(h,"-",2001-01-05,2001-01-07,"-")
	var_Items.AddBar(h,"Task",2001-01-08,2001-01-10,"")
	var_Items.AddBar(h,"+",2001-01-11,2001-01-13,"+")
	var_Items.AddBar(h,"++",2001-01-14,2001-01-16,"++")
	var_Items.ItemBar(h,"<*>",19,50)
	h = var_Items.AddItem("75%")
	var_Items.AddBar(h,"--",2001-01-02,2001-01-04,"--")
	var_Items.AddBar(h,"-",2001-01-05,2001-01-07,"-")
	var_Items.AddBar(h,"Task",2001-01-08,2001-01-10,"")
	var_Items.AddBar(h,"+",2001-01-11,2001-01-13,"+")
	var_Items.AddBar(h,"++",2001-01-14,2001-01-16,"++")
	var_Items.ItemBar(h,"<*>",19,75)
1507
Is it possible to show the bars with a different brightness (1)

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
var_Chart = oG2antt.Chart
	var_Chart.Bars.Item("Task").Color = 16777216 /*0x1000000*/
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,128)
oG2antt.Columns.Add("Brightness")
var_Items = oG2antt.Items
	h = var_Items.AddItem("0%")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04)
	h = var_Items.AddItem("25%")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04)
	var_Items.ItemBar(h,"",19,25)
	h = var_Items.AddItem("50%")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04)
	var_Items.ItemBar(h,"",19,50)
	h = var_Items.AddItem("75%")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04)
	var_Items.ItemBar(h,"",19,75)
1506
So the behavior I am looking for is that a change can cascade through a bar's successors, but a change that would affect a bar's predecessors is not allowed. Is this possible to in ExG2antt

OleObject oG2antt,var_Chart,var_Items
any h,h1,h2,h3

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
oG2antt.OnResizeControl = 1
oG2antt.Columns.Add("Tasks")
oG2antt.Columns.Add("Start").Visible = false
oG2antt.Columns.Add("End").Visible = false
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2006-09-18
	var_Chart.PaneWidth(false,64)
	var_Chart.ScrollRange(0,var_Chart.FirstVisibleDate)
	var_Chart.ScrollRange(1,2006-12-31)
	var_Chart.MarkSelectDateColor = 2147418112 /*0x7fff0000*/
	var_Chart.SelectLevel = 1
	var_Chart.SelectDate(2006-09-19,true)
	var_Chart.AllowCreateBar = 0
	var_Chart.AllowLinkBars = false
var_Items = oG2antt.Items
	h = var_Items.AddItem("Project")
	var_Items.CellValue(h,1,2006-09-21)
	var_Items.CellValue(h,2,2006-10-03)
	var_Items.AddBar(h,"Summary",var_Items.CellValue(h,1),var_Items.CellValue(h,2),"sum")
	h1 = var_Items.InsertItem(h,,"Task 1")
	var_Items.CellValue(h1,1,var_Items.CellValue(h,1))
	var_Items.CellValue(h1,2,2006-09-24)
	var_Items.AddBar(h1,"Task",var_Items.CellValue(h1,1),var_Items.CellValue(h1,2),"K1")
	var_Items.ItemBar(h1,"K1",22,2006-09-20)
	h2 = var_Items.InsertItem(h,,"Task 2")
	var_Items.CellValue(h2,1,var_Items.CellValue(h1,2))
	var_Items.CellValue(h2,2,2006-09-28)
	var_Items.AddBar(h2,"Unknown",var_Items.CellValue(h2,1),var_Items.CellValue(h2,2),"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	h3 = var_Items.InsertItem(h,,"Task 3")
	var_Items.CellValue(h3,1,var_Items.CellValue(h2,2))
	var_Items.CellValue(h3,2,var_Items.CellValue(h,2))
	var_Items.AddBar(h3,"Task",var_Items.CellValue(h3,1),var_Items.CellValue(h3,2),"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	var_Items.GroupBars(h1,"K1",false,h2,"K2",true,31,"0;4")
	var_Items.GroupBars(h2,"K2",false,h3,"K3",true,31,"0;2")
	var_Items.DefineSummaryBars(h,"sum",h1,"K1")
	var_Items.DefineSummaryBars(h,"sum",h2,"K2")
	var_Items.DefineSummaryBars(h,"sum",h3,"K3")
	var_Items.ExpandItem(h,true)
	var_Items.ItemBold(h,true)
oG2antt.EndUpdate()
1505
How can I have a case-insensitive filter (exFilterDoCaseSensitive flag is not set)
OleObject oG2antt,var_Column,var_Column1,var_Columns,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.MarkSearchColumn = false
var_Columns = oG2antt.Columns
	var_Column = var_Columns.Add("Car")
		var_Column.DisplayFilterButton = true
		var_Column.FilterType = 240
		var_Column.Filter = "MAZDA"
	var_Column1 = var_Columns.Add("Equipment")
		var_Column1.DisplayFilterButton = true
		var_Column1.DisplayFilterPattern = false
		var_Column1.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
		var_Column1.FilterType = 3
		var_Column1.Filter = "AIR BAG"
var_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("Mazda"),1,"Air Bag")
	var_Items.CellValue(var_Items.AddItem("Toyota"),1,"Air Bag,Air condition")
	var_Items.CellValue(var_Items.AddItem("Ford"),1,"Air condition")
	var_Items.CellValue(var_Items.AddItem("Nissan"),1,"Air Bag,ABS,ESP")
	var_Items.CellValue(var_Items.AddItem("Mazda"),1,"Air Bag, ABS,ESP")
	var_Items.CellValue(var_Items.AddItem("Mazda"),1,"ABS,ESP")
oG2antt.ApplyFilter()
oG2antt.EndUpdate()
1504
How can I have a case-sensitive filter
OleObject oG2antt,var_Column,var_Column1,var_Columns,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.MarkSearchColumn = false
var_Columns = oG2antt.Columns
	var_Column = var_Columns.Add("Car")
		var_Column.DisplayFilterButton = true
		var_Column.FilterType = 496 /*exFilterDoCaseSensitive | exFilter*/
		var_Column.Filter = "Mazda"
	var_Column1 = var_Columns.Add("Equipment")
		var_Column1.DisplayFilterButton = true
		var_Column1.DisplayFilterPattern = false
		var_Column1.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
		var_Column1.FilterType = 259 /*exFilterDoCaseSensitive | exPattern*/
		var_Column1.Filter = "Air Bag"
var_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("Mazda"),1,"Air Bag")
	var_Items.CellValue(var_Items.AddItem("Toyota"),1,"Air Bag,Air condition")
	var_Items.CellValue(var_Items.AddItem("Ford"),1,"Air condition")
	var_Items.CellValue(var_Items.AddItem("Nissan"),1,"Air Bag,ABS,ESP")
	var_Items.CellValue(var_Items.AddItem("Mazda"),1,"Air Bag, ABS,ESP")
	var_Items.CellValue(var_Items.AddItem("Mazda"),1,"ABS,ESP")
oG2antt.ApplyFilter()
oG2antt.EndUpdate()
1503
Is it possible to add a custom label to the days with a specified background color

OleObject oG2antt,var_Chart,var_Items
any h1

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,48)
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"",2001-01-02,2001-01-08,"K1","Leave Blank")
	var_Items.ItemBar(h1,"K1",29,false)
	var_Items.ItemBar(h1,"K1",7,255)
oG2antt.EndUpdate()
1502
What is the event fired when I change "...Chart.PaneWidthLeft" (or "...Chart.PaneWidthRight") in the Gantt splitter window
/*begin event ChartEndChanging(long  Operation) - Occurs after the chart has been changed.*/
/*
	oG2antt = ole_1.Object
	MessageBox("Information",string( "End Operation(exVSplitterChange(10)" ))
	MessageBox("Information",string( String(Operation) ))
	MessageBox("Information",string( "PaneWidth:" ))
	MessageBox("Information",string( String(oG2antt.Chart.PaneWidth(false)) ))
*/
/*end event ChartEndChanging*/

/*begin event ChartStartChanging(long  Operation) - Occurs when the chart is about to be changed.*/
/*
	oG2antt = ole_1.Object
	MessageBox("Information",string( "Start Operation(exVSplitterChange(10)" ))
	MessageBox("Information",string( String(Operation) ))
	MessageBox("Information",string( "PaneWidth:" ))
	MessageBox("Information",string( String(oG2antt.Chart.PaneWidth(false)) ))
*/
/*end event ChartStartChanging*/

OleObject oG2antt

oG2antt = ole_1.Object
1501
I want to ask if I can select more than one bar in the chart and move them together

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2000-12-29
	var_Chart.PaneWidth(false,64)
	var_Chart.LevelCount = 2
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04,"K1")
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-04,2001-01-06,"K2")
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2001-01-08,2001-01-10,"K3")
	h = var_Items.AddItem("")
	var_Items.AddBar(h,"",2001-01-08,2001-01-10,"","<b>Right click</b> the chart, start dragging to select multiple bars<br>or click a bar while pressing the <b>CTRL</b> key")
	var_Items.ItemHeight(h,36)
	var_Items.ItemBar(h,"",29,false)
oG2antt.EndUpdate()